home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 11 / Amiga Plus 11: Amiga Future.iso / rexx / attribute.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-09-30  |  1.8 KB  |  86 lines
  1. /*
  2.  * Attribute.rexx
  3.  * Beispiel-ARexx-Skript zu TurboBase   © Michael Friedrich
  4.  *
  5.  * Dieses Skript druckt zahlreiche Informationen zum aktuellen Objekt.
  6.  *
  7.  */
  8.  
  9.  
  10. Options FailAt 90
  11.  
  12. /* Dies wird benötigt, um die Ergebnisse in RESULT zurückzuerhalten */
  13. Options Results
  14.  
  15. /* Wir wollen mit TurboBase kommunizieren */
  16. ADDRESS TBASE
  17.  
  18. CONTEXT.USER
  19.  
  20. GETATTR TYP
  21. IF rc~=0 then exit
  22. say "Objekttyp: " RESULT
  23.  
  24. GETATTR NAME
  25. if rc==0 then say "Objektname: " RESULT
  26.  
  27. GETATTR PROJEKTNAME
  28. if rc==0 then say "Projektname: " RESULT
  29.  
  30.  
  31. GETATTR FILTER
  32. if rc==0 then
  33.   if RESULT ~= "" then say "Filter: " RESULT
  34.                   else say "Filter: kein Filter"
  35.  
  36. GETATTR INDEX
  37. if rc==0 then
  38.   if RESULT ~= "" then say "Index: " RESULT
  39.                   else say "Index: kein Index"
  40.  
  41.  
  42. say " "
  43. say "======================================================"
  44. say "Feld-Informationen:"
  45. say "-------------------"
  46.  
  47. GETATTR FELDANZAHL
  48. if rc==0 then do
  49.    say "Feldanzahl: " RESULT
  50.    Anzahl = RESULT
  51.    do i = 1 to Anzahl
  52.      say "    Feld " i
  53.      GETATTR FELDNAME i
  54.      if rc==0 then say "        Name: " RESULT
  55.      GETATTR FELDTYP i
  56.      if rc==0 then say "        Typ: " RESULT
  57.   end
  58. end
  59.  
  60. say " "
  61. say "======================================================"
  62. say "Datensatz-Informationen:"
  63. say "------------------------"
  64. GETATTR GESAMTZAHL
  65. if rc==0 then say "Anzahl Sätze in dieser Datenbank: " RESULT
  66.          else say "Keine aktuelle Datenbank!"
  67.  
  68. GETATTR DATENSATZZAHL
  69. if rc==0 then say "Anzahl ausgewählter Sätze (Filter): " RESULT
  70.  
  71.  
  72.  
  73. say " "
  74. say "======================================================"
  75. say "Fenster-Koordinaten:"
  76. say "--------------------"
  77. GETATTR LINKS
  78. if rc==0 then say "    Links: " RESULT
  79. GETATTR OBEN
  80. if rc==0 then say "    Oben: " RESULT
  81. GETATTR BREITE
  82. if rc==0 then say "    Breite: " RESULT
  83. 'GETATTR HÖHE'
  84. if rc==0 then say "    Höhe: " RESULT
  85.  
  86.